Mantenimiento Redes Del PC/Mantenimiento Redes Del PC.iso/recomen/ccopy95/ccopy95.exe/0/RCDATA/TMAIN/TMAIN.txt

Text File | 1997-04-12 | 12KB | 475 lines

object Main: TMain
  Left = 236
  Top = 104
  HelpContext = 1
  ActiveControl = SourceDirListBox
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'Compare Copy for Windows'
  ClientHeight = 326
  ClientWidth = 566
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = [fsBold]
  Icon.Data = {<image000.ico>}
  Menu = MainMenu1
  Position = poScreenCenter
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Bevel1: TBevel
    Left = 1
    Top = 304
    Width = 195
    Height = 21
  end
  object SourceLabel: TLabel
    Left = 10
    Top = 30
    Width = 135
    Height = 13
    Caption = 'D:\DATA\CCopy Win95'
    Transparent = True
  end
  object Label1: TLabel
    Left = 10
    Top = 205
    Width = 102
    Height = 13
    Caption = 'List Files of &Type:'
  end
  object Label3: TLabel
    Left = 10
    Top = 10
    Width = 100
    Height = 13
    Caption = 'Source Directory:'
    FocusControl = SourceDirListBox
  end
  object Label4: TLabel
    Left = 10
    Top = 255
    Width = 85
    Height = 13
    Caption = 'Source Dri&ves:'
    FocusControl = DriveComboBox1
  end
  object DestLabel: TLabel
    Left = 360
    Top = 30
    Width = 135
    Height = 13
    Caption = 'D:\DATA\CCopy Win95'
    Transparent = True
  end
  object Label6: TLabel
    Left = 360
    Top = 205
    Width = 109
    Height = 13
    Caption = 'Destination Dri&ves:'
    FocusControl = DriveComboBox1
  end
  object Label5: TLabel
    Left = 360
    Top = 10
    Width = 124
    Height = 13
    Caption = 'Destination Directory:'
    FocusControl = SourceDirListBox
  end
  object selsize: TLabel
    Left = 4
    Top = 308
    Width = 137
    Height = 13
    Caption = 'Selected Size: 0 KBytes'
  end
  object Bevel2: TBevel
    Left = 197
    Top = 304
    Width = 367
    Height = 21
  end
  object Bevel3: TBevel
    Left = 0
    Top = 300
    Width = 566
    Height = 2
    Shape = bsTopLine
  end
  object FileCount: TLabel
    Left = 204
    Top = 308
    Width = 119
    Height = 13
    Caption = 'Total files Selected: '
  end
  object FileList: TFileListBox
    Left = 216
    Top = 50
    Width = 133
    Height = 132
    Hint = 'Right Click for Options'
    DragCursor = crMultiDrag
    FileType = [ftReadOnly, ftHidden, ftSystem, ftNormal]
    IntegralHeight = True
    ItemHeight = 16
    MultiSelect = True
    ParentShowHint = False
    PopupMenu = PopupMenuFL
    ShowGlyphs = True
    ShowHint = True
    TabOrder = 1
    OnChange = FileListChange
    OnClick = FileListClick
  end
  object SourceDirListBox: TDirectoryListBox
    Left = 10
    Top = 50
    Width = 195
    Height = 132
    Hint = 'Right Click for Options'
    DirLabel = SourceLabel
    DragCursor = crNoDrop
    FileList = FileList
    IntegralHeight = True
    ItemHeight = 16
    ParentShowHint = False
    PopupMenu = PopupMenuSD
    ShowHint = True
    TabOrder = 0
  end
  object DriveComboBox1: TDriveComboBox
    Left = 10
    Top = 275
    Width = 197
    Height = 19
    DirList = SourceDirListBox
    TabOrder = 3
  end
  object DestDirListBox: TDirectoryListBox
    Left = 360
    Top = 50
    Width = 195
    Height = 132
    Hint = 'Right Click for Options'
    DirLabel = DestLabel
    IntegralHeight = True
    ItemHeight = 16
    ParentShowHint = False
    PopupMenu = PopupMenuDD
    ShowHint = True
    TabOrder = 2
  end
  object SyncBtn: TBitBtn
    Left = 238
    Top = 215
    Width = 89
    Height = 33
    Caption = '&Sync'
    TabOrder = 4
    OnClick = SyncBtnClick
    Glyph.Data = {
      78010000424D7801000000000000760000002800000020000000100000000100
      04000000000000000000120B0000120B00000000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333333333FFFFF3333333333700000733333333F777773FF3333333007F0F70
      0333333773373377FF3333300FFF7FFF003333773F3333377FF33300F0FFFFF0
      F00337737333F37377F33707FFFF0FFFF70737F33337F33337FF300FFFFF0FFF
      FF00773F3337F333377F30707FFF0FFF70707F733337F333737F300FFFF09FFF
      FF0077F33377F33337733707FF0F9FFFF70737FF3737F33F37F33300F0FF9FF0
      F003377F7337F373773333300FFF9FFF00333377FF37F3377FF33300007F9F70
      000337777FF7FF77773333703070007030733373777777737333333333330333
      333333333337FF333333333333300033333333333377733333330000}
    NumGlyphs = 2
  end
  object ExitBtn: TBitBtn
    Left = 238
    Top = 265
    Width = 89
    Height = 33
    Caption = 'E&xit'
    TabOrder = 5
    OnClick = Exit1Click
    Glyph.Data = {
      78010000424D7801000000000000760000002800000020000000100000000100
      04000000000000000000120B0000120B00000000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
      03333377777777777F333301111111110333337F333333337F33330111111111
      0333337F333333337F333301111111110333337F333333337F33330111111111
      0333337F333333337F333301111111110333337F333333337F33330111111111
      0333337F3333333F7F333301111111B10333337F333333737F33330111111111
      0333337F333333337F333301111111110333337F33FFFFF37F3333011EEEEE11
      0333337F377777F37F3333011EEEEE110333337F37FFF7F37F3333011EEEEE11
      0333337F377777337F333301111111110333337F333333337F33330111111111
      0333337FFFFFFFFF7F33330000000000033333777777777773330000}
    NumGlyphs = 2
  end
  object DriveComboBox2: TDriveComboBox
    Left = 360
    Top = 225
    Width = 197
    Height = 19
    DirList = DestDirListBox
    TabOrder = 6
  end
  object SyncAll: TCheckBox
    Left = 360
    Top = 281
    Width = 161
    Height = 17
    Caption = 'Sync All Subdirectories'
    TabOrder = 8
    OnClick = SyncAllClick
  end
  object cbSelectAll: TCheckBox
    Left = 360
    Top = 264
    Width = 121
    Height = 17
    Caption = 'Select All files'
    TabOrder = 7
    OnClick = cbSelectAllClick
  end
  object EditFilter: TComboBox
    Left = 10
    Top = 225
    Width = 197
    Height = 21
    Style = csDropDownList
    ItemHeight = 13
    Items.Strings = (
      'All files (*.*)'
      'Custom - Use Include/Exclude lists'
      'Excel Files (*.xls)'
      'Lotus Files (*.wk*)'
      'Documents (*.doc)')
    TabOrder = 9
    OnChange = EditFilterChange
  end
  object ExcludeFiles: TFileListBox
    Left = 236
    Top = 4
    Width = 113
    Height = 45
    FileType = [ftReadOnly, ftHidden, ftSystem, ftNormal]
    ItemHeight = 13
    TabOrder = 10
    Visible = False
  end
  object ExcludeDirListBox: TDirectoryListBox
    Left = 152
    Top = 4
    Width = 81
    Height = 45
    FileList = ExcludeFiles
    ItemHeight = 16
    TabOrder = 11
    Visible = False
  end
  object MainMenu1: TMainMenu
    Left = 540
    object File1: TMenuItem
      Caption = '&File'
      ShortCut = 0
      object LoadSettings: TMenuItem
        Caption = 'Load Settings...'
        ShortCut = 0
        OnClick = LoadSettingsClick
      end
      object SaveDefaultSettings1: TMenuItem
        Caption = 'Save Default Settings'
        ShortCut = 0
        OnClick = SaveDefaultSettings1Click
      end
      object SaveSettingsAs1: TMenuItem
        Caption = 'Save Settings As...'
        ShortCut = 0
        OnClick = SaveSettingsAs1Click
      end
      object SaveSettingsonExit: TMenuItem
        Caption = 'Save Settings on Exit'
        Checked = True
        ShortCut = 0
        OnClick = SaveSettingsonExitClick
      end
      object N1: TMenuItem
        Caption = '-'
        Enabled = False
        ShortCut = 0
      end
      object Sync1: TMenuItem
        Caption = '&Sync'
        ShortCut = 16467
        OnClick = SyncBtnClick
      end
      object N2: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object Exit1: TMenuItem
        Caption = 'E&xit'
        ShortCut = 16472
        OnClick = Exit1Click
      end
    end
    object Edit1: TMenuItem
      Caption = '&Edit'
      ShortCut = 0
      object Delete2: TMenuItem
        Caption = '&Delete'
        ShortCut = 46
        OnClick = Delete1Click
      end
      object Rename2: TMenuItem
        Caption = '&Rename'
        ShortCut = 0
        OnClick = Rename1Click
      end
      object SelectAll3: TMenuItem
        Caption = 'Select &All'
        ShortCut = 16449
        OnClick = SelectAll1Click
      end
    end
    object Batch1: TMenuItem
      Caption = '&Batch'
      ShortCut = 0
      object BatchFileEditor1: TMenuItem
        Caption = 'Batch File &Editor...'
        ShortCut = 0
        OnClick = BatchFileEditor1Click
      end
      object RunBatchFile1: TMenuItem
        Caption = '&Run Batch File...'
        ShortCut = 0
        OnClick = RunBatchFile1Click
      end
    end
    object LogFile1: TMenuItem
      Caption = '&Log...'
      ShortCut = 0
      OnClick = LogFile1Click
    end
    object Options1: TMenuItem
      Caption = 'Options...'
      ShortCut = 0
      OnClick = Options1Click
    end
    object Help1: TMenuItem
      Caption = '&Help'
      ShortCut = 0
      object Contents1: TMenuItem
        Caption = '&Contents'
        ShortCut = 0
        OnClick = Contents1Click
      end
      object License1: TMenuItem
        Caption = '&License...'
        ShortCut = 0
        OnClick = License1Click
      end
      object Registration1: TMenuItem
        Caption = '&Registration'
        ShortCut = 0
        OnClick = Registration1Click
      end
      object About1: TMenuItem
        Caption = '&About'
        ShortCut = 0
        OnClick = About1Click
      end
    end
  end
  object PopupMenuFL: TPopupMenu
    Left = 515
    object SelectAll1: TMenuItem
      Caption = 'Select All'
      ShortCut = 0
      OnClick = SelectAll1Click
    end
    object UnSelectAll1: TMenuItem
      Caption = 'UnSelect All'
      ShortCut = 0
      OnClick = Cancel1Click
    end
    object Delete1: TMenuItem
      Caption = 'Delete'
      ShortCut = 0
      OnClick = Delete1Click
    end
    object Rename1: TMenuItem
      Caption = 'Rename'
      ShortCut = 0
      OnClick = Rename1Click
    end
    object Sync2: TMenuItem
      Caption = 'Sync'
      ShortCut = 0
      OnClick = SyncBtnClick
    end
  end
  object PopupMenuSD: TPopupMenu
    Left = 490
    object MakeDirectorySD: TMenuItem
      Caption = 'Make Directory'
      ShortCut = 0
      OnClick = MakeDirectorySDClick
    end
    object DeleteDirectorySD: TMenuItem
      Caption = 'Delete Directory'
      ShortCut = 0
      OnClick = DeleteDirectorySDClick
    end
  end
  object SaveAs: TSaveDialog
    DefaultExt = 'ini'
    FileEditStyle = fsEdit
    FileName = 'ccopyw.ini'
    Filter =
      'All Files (*.*)|*.*|Ini Files (*.ini)|*.ini|Text Files (*.txt)|*' +
      '.txt'
    FilterIndex = 2
    Options = [ofOverwritePrompt, ofPathMustExist]
    Left = 539
    Top = 255
  end
  object OpenDialog: TOpenDialog
    DefaultExt = 'ini'
    FileEditStyle = fsEdit
    FileName = 'ccopyw.ini'
    Filter =
      'All Files (*.*)|*.*|INI Files (*.ini)|*.ini|Text Files (*.txt)|*' +
      '.txt'
    FilterIndex = 2
    Options = [ofPathMustExist, ofFileMustExist]
    Left = 510
    Top = 255
  end
  object PopupMenuDD: TPopupMenu
    Left = 531
    Top = 192
    object MakeDirectoryDD: TMenuItem
      Caption = 'Make Directory'
      ShortCut = 0
      OnClick = MakeDirectoryDDClick
    end
    object DeleteDirectoryDD: TMenuItem
      Caption = 'Delete Directory'
      ShortCut = 0
      OnClick = DeleteDirectoryDDClick
    end
  end
  object Timer: TTimer
    Interval = 180000
    OnTimer = TimerTimer
    Left = 502
    Top = 192
  end
end